home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 21.zip / BS1 part 21 / Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].7z / Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].adf / rexx.lzh / SafeSetEdit.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-28  |  375b  |  21 lines
  1. /*
  2.     The safe way to end edit mode
  3. */
  4. arg box
  5.  
  6. if ~show(l, "rexxsupport.library") then
  7.     if ~addlib("rexxsupport.library", 0, -30) then
  8.     do
  9.         call ppm_Inform(1,"Please install the rexxsupport.library in your libs: directory before running this Genie.")
  10.         exit
  11.     end
  12.  
  13. call ppm_SetEdit(box)
  14.  
  15. do while word(ppm_GetState(), 1) ~= 3
  16.  
  17.     call delay(10)
  18.  
  19. end
  20.  
  21.